﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
    response.Charset="utf-8"
    name=request.Form("name")
    content=request.Form("content")
    set conJson=Server.CreateObject("Scripting.Dictionary")
%>
<script language="JScript" runat="Server"> 
function JsonToDiction(str)
{
    eval("var tempstr="+str);
    var tempdic=Server.CreateObject("Scripting.Dictionary")
    ForJson(tempstr,tempdic);
    return tempdic;
}
function ForJson(obj,refArray)
{
    for(i in obj)
    {
        if(obj[i] instanceof Object)
        {
            var tempref=Server.CreateObject("Scripting.Dictionary")
            refArray.Add(i.toString(),tempref);
            ForJson(obj[i],tempref);
        }
        else
        {
            refArray.Add(i.toString(),obj[i]);
        }
    }
}
</script>
<% 
    call ForJson(request.Form("content"),conJson)
    set conJson=JsonToDiction(content)
    response.Write(conJson("ff")("aa"))
%>